home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: Alpha / Whiteline Alpha.iso / tex / strunk / disk_4 / m_emacs.lzh / bin / texin.cmd < prev    next >
Encoding:
Text File  |  1990-11-13  |  812 b   |  34 lines
  1. ;  Command file to encode portable TeX files into Atari TeX files
  2. ;
  3. ;  encodes     "a -> ä    etc.
  4. ;
  5. ;  since the double quote cannot be directly entered into a string,
  6. ;  we must do a trick with &cat here.
  7. ;
  8. ;  call it with:       M-x execute-file texin.cmd
  9. ;
  10. ;  -cs
  11. ;
  12.     add-mode "exact"
  13.     delete-mode "magic"
  14. ;
  15.     beginning-of-file
  16.     replace-string &cat &chr 34 "a" "ä"
  17.     beginning-of-file
  18.     replace-string &cat &chr 34 "o" "ö"
  19.     beginning-of-file
  20.     replace-string &cat &chr 34 "u" "ü"
  21.     beginning-of-file
  22.     replace-string &cat &chr 34 "A" "Ä"
  23.     beginning-of-file
  24.     replace-string &cat &chr 34 "O" "Ö"
  25.     beginning-of-file
  26.     replace-string &cat &chr 34 "U" "Ü"
  27.     beginning-of-file
  28.     replace-string &cat &chr 34 "s" "ß"
  29.     beginning-of-file
  30.     replace-string "\S{}" "§"
  31.     beginning-of-file
  32. ;
  33. ;  -eof-
  34.